home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 010 / games.arc / LETTER.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1980-01-01  |  1.4 KB  |  66 lines
  1. 10  ' ********************
  2. 20  ' **     LETTER     **
  3. 30  ' ********************
  4. 40  '
  5. 50  CLEAR
  6. 60  FILESPEC$ = "ENVELOPE"
  7. 70  SCREEN 0,0,0,0
  8. 80  CLS
  9. 90  KEY OFF
  10. 100  WIDTH 80
  11. 110  PRINT TAB(27)CHR$(201);STRING$(24,205);CHR$(187)
  12. 120  PRINT TAB(27)CHR$(186)TAB(37)"LETTER"TAB(52)CHR$(186)
  13. 130  PRINT TAB(27)CHR$(200);STRING$(24,205);CHR$(188)
  14. 140  PRINT
  15. 150  GOSUB 250
  16. 160  LOCATE 25,14
  17. 170  PRINT " - - - - - <W>rite new letter, or <Q>uit ? - - - - -";
  18. 180  K$ = INKEY$
  19. 190  IF K$ = "w" OR K$ = "W" THEN 420
  20. 200  IF K$ <> "q" AND K$ <> "Q" THEN 180
  21. 210  CLS
  22. 220  END
  23. 230  '
  24. 240  ' Read the letter in the envelope
  25. 250  ON ERROR GOTO 610
  26. 260  OPEN FILESPEC$ FOR INPUT AS #1
  27. 270  WHILE NOT EOF(1)
  28. 280  LINE INPUT #1,A$
  29. 290  IF A$ <> "###" THEN PRINT A$
  30. 300  IF CSRLIN > 22 THEN GOSUB 360
  31. 310  WEND
  32. 320  CLOSE #1
  33. 330  RETURN
  34. 340  '
  35. 350  ' Subroutine, wait before continuing
  36. 360  LOCATE 24,25:PRINT "Press any key to continue ...";
  37. 370  K$=INKEY$
  38. 380  IF K$ = "" THEN 370
  39. 390  CLS
  40. 400  RETURN
  41. 410  '
  42. 420  ' Write a letter and put it into envelope
  43. 430  CLS
  44. 440  PRINT "Type in your letter ..."
  45. 450  PRINT "Edit only on the current line.  ";
  46. 460  PRINT "Once you press <enter> a line is filed away.
  47. 470  PRINT "After the last line type in these three characters ... ";
  48. 480  PRINT CHR$(34);"###";CHR$(34)
  49. 490  LOCATE 9
  50. 500  OPEN FILESPEC$ FOR OUTPUT AS #1
  51. 510  WHILE TEXT$ <> "###"
  52. 520  LINE INPUT TEXT$
  53. 530  PRINT #1,TEXT$
  54. 540  WEND
  55. 550  CLS
  56. 560  LOCATE 12,25
  57. 570  PRINT "The envelope has been stuffed."
  58. 580  END
  59. 590  '
  60. 600  ' Error trapping, probably no FILESPEC$ file
  61. 610  IF ERR <> 53 THEN ON ERROR GOTO 0
  62. 620  OPEN FILESPEC$ FOR OUTPUT AS #1
  63. 630  PRINT #1,"###"
  64. 640  CLOSE #1
  65. 650  RESUME
  66.